home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1986 November
/
Ahoy_Magazine_86-11_1986_Double_L.d64
/
Rep. Comp.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
225b
|
8 lines
0 print"[147][144]":poke53280,6:poke53281,1
1 print" commodares....repeated compression ":print:print
2 rem repeated compression
3 rem solution by
4 rem keith kushner
5 rem
10 inputi$:fort=1tolen(i$):a$=mid$(i$,t,1):c$=c$+chr$(asc(a$)*-(b$<>a$)):b$=a$:next:printc$